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SUBROUTINE OUTPUTD (LUN,OUTPUT) 
Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGH ¥ RESERVED. 
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* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
t ONLY IN ACCORDANCE WITH OTHE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
© OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HERESY 
* TRANSFERRED. . 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
CORPORATION. LD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 
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S NOT SUPPLIED BY DIGITAL. 
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00 
00 
$8 AUTHOR BRIAN PORTER CREATION DATE 2-JAN-1980 
00 
003 
0034 
0086 BYTE LUN 
INTEGER*4 COMPRESSC 


CHARACTER*®(*) OUTPUT 


CALL LINCHK (LUN,1) 


WRITE(LUN,10) OUTPUT 
10 FORMAT(* *,T40,A<COMPRESSC (OUTPUT)>) 


RETURN 
END 
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4 14: 1 
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DISKSVMSMASTER: CERF .SRCJOUTPUTD.FOR; 1 
PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 87 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 16 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 32 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allo ated 135 


ENTRY POINTS 
Address Type Name 


0-00000000 OUTPUTD 
VARIABLES 
Address Type Name Address Type Name 
P-000000048 L*1 LUN 2-00000000@ CHAR OUTPUT 
LABELS 
Address’ Label 
1-00000004 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
1*4 COMPRESSC LINCHK 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:OUTPUTD/OBJ=0BJ$:OUTPUTD MSRC$:OUTPUTD 


/ CHE CK=(NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUG=(NOSYMBOLS§ , TRACEBACK 

/STANDARD=(NOSYNT TAX NOEDURC E FORM) 

/SHOW= (NOPREPROCE SSOR ,NOINCLODE, 

/F77 /NOG_FLOATING 7/14 COT EATIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: Q.7 seconas 
Elapsed Time: -48 seconds 
Page Faults: 


Dynamic Memory: 69 pages 
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